inherited F_Reporte_NoImprimible: TF_Reporte_NoImprimible
  Left = 277
  Top = 144
  Width = 680
  Height = 436
  Caption = 'Reporte Copias no impresas'
  Constraints.MinHeight = 350
  Constraints.MinWidth = 680
  OldCreateOrder = True
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited PanelInferior: TPanel
    Top = 346
    Width = 672
    inherited B_Guardar: TJvSpeedButton
      Left = 417
      OnClick = B_GuardarClick
    end
    inherited B_Cerrar: TJvSpeedButton
      Left = 543
      OnClick = B_CerrarClick
    end
  end
  inherited PanelCentral: TPanel
    Width = 672
    Height = 241
    inherited PanelGrilla: TPanel
      Width = 672
      Height = 241
      inherited JvDBUltimGrid: TJvDBUltimGrid
        Width = 650
        Height = 219
      end
    end
  end
  inherited Panel_Superior: TPanel
    Width = 672
    inherited L_Buscar: TLabel
      Width = 159
      Caption = 'Seleccione el rango'
    end
    inherited JvSB_Filtrar: TJvSpeedButton
      Left = 553
      OnClick = JvSB_FiltrarClick
    end
    object Label_Desde: TLabel [2]
      Left = 32
      Top = 65
      Width = 75
      Height = 16
      Caption = 'Fecha Inicial'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel [3]
      Left = 312
      Top = 65
      Width = 70
      Height = 16
      Caption = 'Fecha Final'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    inherited GB_OpcionesDeFiltrado: TGroupBox
      Left = 659
      Width = 2
      Visible = False
      object CB_FechaCreacion: TCheckBox
        Left = 16
        Top = 24
        Width = 121
        Height = 17
        TabStop = False
        Caption = 'Rango Fechas'
        TabOrder = 0
        OnClick = CB_FechaCreacionClick
      end
    end
    object JvDPE_Desde: TJvDatePickerEdit
      Left = 128
      Top = 57
      Width = 151
      Height = 24
      AllowNoDate = True
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      NoDateShortcut = 0
      ParentFont = False
      TabOrder = 1
      OnKeyPress = JvDPE_DesdeKeyPress
    end
    object JvDPE_Hasta: TJvDatePickerEdit
      Left = 392
      Top = 56
      Width = 155
      Height = 24
      AllowNoDate = True
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      NoDateShortcut = 0
      ParentFont = False
      TabOrder = 2
      OnKeyPress = JvDPE_DesdeKeyPress
    end
  end
  inherited JvFormStorage: TJvFormStorage
    StoredProps.Strings = (
      'JvDPE_Desde.Date'
      'JvDPE_Hasta.Date')
    Top = 64
  end
  inherited ZR_Consulta: TZReadOnlyQuery
    SQL.Strings = (
      'SELECT '
      '        CASE EXTRACT (MONTH FROM OP.FECHA_CREACION)'
      '            WHEN 1 THEN '#39'Enero'#39
      '            WHEN 2 THEN '#39'Febrero'#39
      '            WHEN 3 THEN '#39'Marzo'#39
      '            WHEN 4 THEN '#39'Abril'#39
      '            WHEN 5 THEN '#39'Mayo'#39
      '            WHEN 6 THEN '#39'Junio'#39
      '            WHEN 7 THEN '#39'Julio'#39
      '            WHEN 8 THEN '#39'Agosto'#39
      '            WHEN 9 THEN '#39'Septiembre'#39
      '            WHEN 10 THEN '#39'Octubre'#39
      '            WHEN 10 THEN '#39'Noviembre'#39
      
        '            WHEN 10 THEN '#39'Diciembre'#39'                            ' +
        '                                                        '
      
        '        END || CAST(EXTRACT(YEAR FROM OP.FECHA_CREACION) AS VARC' +
        'HAR (4)) AS MES, COUNT (OP.ID) AS "P'#193'GINAS EN BLANCO"'
      ' '
      'FROM ORDEN_DE_PEDIDO OP'
      '     JOIN DETALLE_PEDIDO DP ON OP.ID = DP.FK_ID_ORDEN'
      '     JOIN DOCUMENTOS D ON D.ID = DP.FK_ID_DOCUMENTO '
      
        '     JOIN PAG_NO_IMPRIMIBLES_POR_DOC PNI ON PNI.FK_ID_DOCUMENTO ' +
        '= DP.FK_ID_DOCUMENTO'
      'WHERE PNI.PAGINA BETWEEN DP.PAGINA_INICIAL AND DP.PAGINA_FINAL'
      
        '      AND EXTRACT (MONTH FROM OP.FECHA_CREACION) BETWEEN :MONTH_' +
        'FROM AND :MONTH_TO'
      
        '      AND EXTRACT (YEAR FROM OP.FECHA_CREACION) BETWEEN :YEAR_FR' +
        'OM AND :YEAR_TO'
      'GROUP BY EXTRACT (MONTH FROM OP.FECHA_CREACION),'
      '         EXTRACT (YEAR FROM OP.FECHA_CREACION) ')
    Params = <
      item
        DataType = ftInteger
        Name = 'MONTH_FROM'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'MONTH_TO'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'YEAR_FROM'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'YEAR_TO'
        ParamType = ptUnknown
      end>
    ParamData = <
      item
        DataType = ftInteger
        Name = 'MONTH_FROM'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'MONTH_TO'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'YEAR_FROM'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'YEAR_TO'
        ParamType = ptUnknown
      end>
  end
  object ZQ_Total: TZReadOnlyQuery
    Connection = DM_Persistence.DBConnection
    SQL.Strings = (
      'SELECT COUNT (OP.ID) AS PAGINAS_NO_IMPRIMIBLES '
      'FROM ORDEN_DE_PEDIDO OP'
      '     JOIN DETALLE_PEDIDO DP ON OP.ID = DP.FK_ID_ORDEN'
      '     JOIN DOCUMENTOS D ON D.ID = DP.FK_ID_DOCUMENTO '
      
        '     JOIN PAG_NO_IMPRIMIBLES_POR_DOC PNI ON PNI.FK_ID_DOCUMENTO ' +
        '= DP.FK_ID_DOCUMENTO'
      'WHERE PNI.PAGINA BETWEEN DP.PAGINA_INICIAL AND DP.PAGINA_FINAL'
      
        '      AND EXTRACT (MONTH FROM OP.FECHA_CREACION) BETWEEN :MONTH_' +
        'FROM AND :MONTH_TO'
      
        '      AND EXTRACT (YEAR FROM OP.FECHA_CREACION) BETWEEN :YEAR_FR' +
        'OM AND :YEAR_TO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'MONTH_FROM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MONTH_TO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YEAR_FROM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YEAR_TO'
        ParamType = ptUnknown
      end>
    Left = 472
    Top = 129
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'MONTH_FROM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MONTH_TO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YEAR_FROM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YEAR_TO'
        ParamType = ptUnknown
      end>
  end
end
